home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 1994 November / macformat-018.iso / Utility Spectacular / Developer / Mac F2C 1.0 / Test Project ƒ / test.c (sample) < prev    next >
Encoding:
Text File  |  1994-06-11  |  2.3 KB  |  84 lines  |  [TEXT/KAHL]
  1. /* test.f -- translated by f2c (version 19940329).
  2.    You must link the resulting object file with the libraries:
  3.     -lf2c -lm   (in that order)
  4. */
  5.  
  6. #include "f2c.h"
  7.  
  8. /* Table of constant values */
  9.  
  10. static integer c__3 = 3;
  11. static integer c__1 = 1;
  12. static integer c__4 = 4;
  13. static integer c__5 = 5;
  14. static integer c__9 = 9;
  15.  
  16. /* Main program */ MAIN__(void)
  17. {
  18.     /* Format strings */
  19.     static char fmt_100[] = "(\002 Enter the indice to count to : \002,$)";
  20.  
  21.     /* System generated locals */
  22.     integer i__1, i__2, i__3;
  23.     real r__1, r__2;
  24.     doublereal d__1, d__2;
  25.  
  26.     /* Builtin functions */
  27.     integer s_wsfe(cilist *), e_wsfe(void), s_rsle(cilist *), do_lio(integer *
  28.         , integer *, char *, ftnlen), e_rsle(void), s_wsle(cilist *), 
  29.         e_wsle(void);
  30.     /* Subroutine */ int s_paus(char *, ftnlen), s_stop(char *, ftnlen);
  31.  
  32.     /* Local variables */
  33.     doublereal d;
  34.     integer i, j;
  35.     real x[100];
  36.  
  37.     /* Fortran I/O blocks */
  38.     static cilist io___3 = { 0, 6, 0, fmt_100, 0 };
  39.     static cilist io___4 = { 0, 5, 0, 0, 0 };
  40.     static cilist io___7 = { 0, 6, 0, 0, 0 };
  41.     static cilist io___8 = { 0, 6, 0, 0, 0 };
  42.  
  43.  
  44. /* --    This is a test FORTRAN program */
  45.     for (i = 1; i <= 100; ++i) {
  46.     x[i - 1] = (real) i;
  47.     }
  48.     s_wsfe(&io___3);
  49.     e_wsfe();
  50.     s_rsle(&io___4);
  51.     do_lio(&c__3, &c__1, (char *)&j, (ftnlen)sizeof(integer));
  52.     e_rsle();
  53.     i__1 = j;
  54.     for (i = 1; i <= i__1; ++i) {
  55.     d = (doublereal) i;
  56.     s_wsle(&io___7);
  57.     do_lio(&c__3, &c__1, (char *)&i, (ftnlen)sizeof(integer));
  58.     do_lio(&c__4, &c__1, (char *)&x[i - 1], (ftnlen)sizeof(real));
  59.     do_lio(&c__5, &c__1, (char *)&d, (ftnlen)sizeof(doublereal));
  60. /* Computing 2nd power */
  61.     i__3 = i;
  62.     i__2 = i__3 * i__3;
  63.     do_lio(&c__3, &c__1, (char *)&i__2, (ftnlen)sizeof(integer));
  64. /* Computing 2nd power */
  65.     r__2 = x[i - 1];
  66.     r__1 = r__2 * r__2;
  67.     do_lio(&c__4, &c__1, (char *)&r__1, (ftnlen)sizeof(real));
  68. /* Computing 2nd power */
  69.     d__2 = d;
  70.     d__1 = d__2 * d__2;
  71.     do_lio(&c__5, &c__1, (char *)&d__1, (ftnlen)sizeof(doublereal));
  72.     e_wsle();
  73.     }
  74.     s_paus("*** End of test output: 3 columns of numbers and then their squa"
  75.         "res  ***", 72L);
  76.     s_wsle(&io___8);
  77.     do_lio(&c__9, &c__1, "This program completed a normal run", 35L);
  78.     e_wsle();
  79.     s_stop("End of time", 11L);
  80.     return 0;
  81. } /* MAIN__ */
  82.  
  83. /* Main program alias */ int temp_ () { MAIN__ (); return 0; }
  84.